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NATIONAL 0S9 USERS GROUP NEWSLETTER 



EDITOR : 6ordon Bentzen 

HELPERS : Bob Devries and Don Berrie 

SUPPORT : Brisbane 0S9 Level 2 Users 6roup 

Another newsletter hits the streets! 

This here is the fifth one, and Me ain't about to stop here. In this issue you'll find soae tore of Don 
Berrie's Disk Zapper, and also the explanation of the workings of the C prograaae froa last lonth. Also, it 
has been brought to ly attention that there's soae people in the national user group who are new to the world 
of 0S9. Well, we'd like to provide soiething of interest for everyone, so there's an section in this 
newsletter for those people too. 

hie would like to see sote input froe other people in the group to add to our collection of material. One 
avenue open to us is a section dealing with problets of 0S9 users around Australia. He would like to print 
these probleas in the newsletter, along with whatever answers we can provide. So get those problets on paper, 
and send thee to us. Your problee sight be concerning other people, toe, and the answers could help others. 

Ti sure that inforiation about running OS? on other systeas besides the Colour Cotputer would lake 
interesting reading for us all. How about it, all you other systea users? 

Hell here's the Noveaber issue. I hope you all learn soiething froi it. 



ZAP (Part 2) 

tmtxxmmmmttttmmmnmtttmmmmtxmxtmmmmm 

Disk Zapper Prograi for CoCo 0S9 Level II 

Copyright (c) I98B by D.A. Berrie 
Released to the Public Domain - harch 1988. 

xxxxxtttxxxxxxxtxtxtxxxxxxtmxxxxxxxtxtxtxxxxttxxtxxxttxxxxtxxtxxttxxxtxx 

Prograa Description : 

Zap is a sector based disk-zapper for use with CoCo 0S9 Level II. It is presented as Basic09 code and 
consequently needs access to the Basic09 aodule to execute. The prograa also needs access to the 6fx2 aodule 
in order to do the windowing and other screen sanipulations. To avoid conflicts with other windows which say 
already be active, the prograi uses the /W window descriptor. The prograi sets up a new window and then 
directs all output to it, thereby avoiding the necessity to run the process froi a window of a particular 
type to give the correct display. This dictates that both the /H descriptor, and one other free window 
descriptor need to be available to the prograa. 

The prograa has inbuilt help aessages and is easy to operate. A word of CAUTION. You can lake perianent 
changes to your disk structure, including the possibility of saking a disk UNREADABLE. If you are unsure of 
what you are doing, do not use the "M" (for aodify) option froe the lain aenu-bar. 

For a description of the floppy disk setup under 0S9, read Chapter 5 of the Technical Reference Section of 
the Level II Hanual. 

Systea Requireaents : 

0S9 L2; 512K; grfint or windint lodule; basic09 (or runb for a packed version); gfx2; syscall; shell; 
display; xaode; and dir aodules. 
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Instructions : 

Type in the program after starting Basic09 with 30K of aeaory. You should end up with IB separate procedures, 



zap 


helpraess 


winclose 


ascii 


swclose 


helpiBess2 


calc 


header 


directory 


getdevnaffl 



sen 

change 
fflodity 
getsec 



winopen 
swapen 
closerr 
getdev 



The best Nay to run the program is to pack it into I-code and run it using RunB. After you have typed in the 
code, (and Saved it just in case) siaply type pack* and the modules will be merged, and saved in your 
execution directory under the naae zap. 

Program Usage : zap <CR> 

Disclaiaer ; 

As the use of this proqraa is beyond the influence of the author, no responsibility can be accepted. However, 
the prograa does work, if used correctly, and has been subjected to extensive error testing. 

Help : 

Should you experience any probleas, or have any questions about the operation of the progras, please feel 
free to contact se on (07) 375-3236. 



Please feel free to distribute copies of this prograa. Cheers 



Don Berrie. 



PROCEDURE helpffless2 
ON ERROR GOTO 100 
DIN title:STRINGC40] 
PARAM «path:BYTE 
PARAM key:STRINGCl] 
PRINT iwpath, " "j 
title="HQDIFY OPTION" 
RUN header (wpath, title) 
PRINT iwpath 
PRINT iwpath. 



PRINT iwpath ," USE 

PRINT iwpath 

PRINT iwpath 

PRINT iwpath 

PRINT iwpath 

PRINT iwpath 

PRINT iwpath 

PRINT iwpath 

PRINT iwpath 

PRINT iwpath 

PRINT iwpath 

PRINT iwpath 

PRINT iwpath 

PRINT iwpath 
GET iwpath, key 
END 
100 RUN closerr (wpath) 
END 



-ARROW keys for" 

cursor aovenent" 

" 2-digit Hex. nuraber" 

* to change byte" 

"<H> to display" 

" this senu" 

"<W> to write changes" 
to disk" 

■<B> to return to" 

B aain aenu" 

"Press Any Key to Continue" 



PROCEDURE modify 

ON ERROR GOTO 100 

BASE 

PARAM wpath: BYTE 

PARAM secdat(256):BYTE 

PARAH iblkno: INTEGER 

PARAM PATHiBYTE 

PARAM NAME:STRING[43 

PARAH fIag:INTE6ER 

DIM x,y,xl,yl:INTEGER 

DIM key:STRINGC13 

DIM aetenREAL 

x=10 \xl=60 \y=B \yi=B 

aeter=iblkno 

RUN winopen(wpath,x,y,xl,yl) 

IF flag=0 THEN 

PRINT iwpath," >» NO CHANGES HADE <«" 

PRINT iwpath, 

PRINT iwpath," Press Any Key to Continue' 

ELSE 

PRINT iwpath, "WRITE CHANGES TO DISK" 

PRINT iwpath. 



PRINT iwpath," 

ENDIF 
6ET iwpath, key 
IF feey= u Y B OR key="y 8 THEN 

OPEN iPATH, NAME 

aeter=metert256 

SEEK iPATH, meter 



ARE YOU SURE (Y/N) 
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PUT IPATH,secdat 

CLOSE iPATH 

ENDIF 
RUN winclose(wpath} 
RUN g-fx2(wpath, u CURXY B ,5,22> 
PRINT iwpath, "insert 32 blanks instead of this 

line"; 
END 
100 RUN closerr(wpath) 
END 

PROCEDURE closerr 
ON ERROR GOTO 100 
PARAH wpath:BYTE 

10 SHELL "display lb 23 H 

6GT0 10 
100 END 

PROCEDURE calc 
BASE 

PARAH wpathrBYTE 
DIH title:STRING[40] 
DIM result, nu«i,nuia2: INTEGER 
DIH opl,op2:STRING[6] 
DIM keypressrSTRINGH] 
RUN qfx2(wpath, B curoff B ) 
8 PRINT iwpath, CHR*(*0C) 
PRINT iwpath," H ; 
title="HEX CALCULATOR 
RUN headeHwpath, title) 
PRINT iwpath, 

PRINT Iwpath, "USE : 0-9 A-F + - » / <cr> B 
opl= flB \op2= BB 
result=Q 
PRINT Iwpath, 
ON ERROR GOTO 10 
GOTO 11 

10 RUN gfx2(wpath,-curxy H ,A,5) 
PRINT iwpath, "m ERROR" 
RUN gfx2(wpath,'bell") 

11 opl= B " 
keypress= a " 
REPEAT 

opl=opl+keypress 

RUN qfx2(wpath,"turxy",6,5) 

PRINT iwpath," 

RUN gfx2(wpath,"curxy",15-LEN(opl),5) 

PRINT iwpath, opl 

RUN gfx2(wpath, "color", 1) 

6ET Iwpath, keypress 

IF keypress="Q" OR fceypress= B q" THEN 

END 

ENDIF 
RUN gfx2(wpath^color",0) 
UNTIL ASC (keypress) =$2A OR ASCt keypress )=$2B 
OR ASCI keypress) =*2D OR ASC (keypress) =$2F 
RUN gfx2(wpath,"curxy",15-LEN(opl),5) 



RUN gfx2<wpath, B color\6) 

PRINT Iwpath, opl 

RUN gfx2(wpath, B color%0) 

opl="$"+opi 

nufil=VAL(opl) 

RUN gfx2(wpath,"curxy fl ,16,6> 

PRINT Iwpath, keypress 

operator=SUBSTR (keypress, ■+-/»■) 

PRINT iwpath., 

ON ERROR 60TO 12 

60T0 13 

12 RUN gfx2(wpath,"curxy u ,6,7) 
PRINT Iwpath, B m ERROR" 
RUN gfx2(wpath, B beH a ) 

13 op2= nB 
keypress^" 
REPEAT 

op2=op2+keypres5 

RUN gfx2(wpath, 6 curxy",6,7) 

PRINT iwpath, 

RUN gfx2(wpath, "curxy", 15-LEN(op2) ,7) 

PRINT iwpath,op2 

RUN gfx2(wpath, "color", 1) 

6ET iwpath, keypress 

IF keypres5= B Q D OR keypress= H q B THEN 
END 
ENDIF 

RUN gfx2(wpath, "color", 0) 

UNTIL ASC(keypre5s)=*0D 
RUN gfx2(wpath/curxy",15-LEN(op2),7) 
RUN gfx2(wpath,"color B ,6) 
PRINT iwpath, op2 
RUN gfx2(wpath, "color", 0) 
op2= B $ B +op2 
nu*2=VAL(op2) 
ON ERROR GOTO 100 
IF operators THEN 

result=nu«l+nu»2 

ENDIF 
IF operator=2 THEN 

result=nuffll-nui2 

ENDIF 
IF operator=3 THEN 

result=nufil/nuft2 

ENDIF 
IF operator=4 THEN 

result=nualtnui2 

ENDIF 
PRINT iwpath, 

PRINT Iwpath, 8 RESULT : "; 
RUN gfx2(wpath,"revon D ) 
RUN gfx2(wpath, "color", 0,2) 
PRINT iwpath, "$"; 
PRINT iwpath USIN6 "h4", result 
RUN gfx2(wpath, "color", 0,1) 
RUN gfx2(wpath,"revoff") 
PRINT iwpath, 



Page 4 



NATIONAL 0S9 USERS 6R0UP NEWSLETTER 



PRINT twpath/ Press Q to Quit" 
PRINT iwpath," Any Key to Continue" 
BET iwpath, keypress 
IF keypress=y OR keypress="9" THEN 

RUN gfx2(wpath,"curon B ) 

END 

ENDIF 
GOTO 8 
END 
100 RUN gfx2(wpath, a curon") 
RUN closerr Iwpath) 
END 

PROCEDURE header 

PARAH wpath: BYTE 

PARAH title:STRIN&[401 

RUN gfx2{wpath,"color\2,3) 

PRINT iwpath, title 

RUN gfx2(wpath, "color 8 , 0,1) 

PROCEDURE getsec 
PARAH wpath:6YTE 
PARAH iaxblock: INTEGER 
PARAH blkno:REAL 
DIM hblkno:STRIN6[25] 
1 PRINT Iwpath, "SECTOR NUMBER (aax:t"; 
PRINT twpath USING "H4>",iiaxblock; 
PRINT iwpath/) : u ; 
INPUT twpath, H ",hblkno 
hblkno= B $"+hblkno 
ON ERROR GOTO 1 
blkno=VAL(hblkno) 
IF blkno>«axblock OR blkno<0 THEN 

60T0 1 

ENDIF 
RUN winclose(wpath) 
END 

PROCEDURE getdev 
BASE 

ON ERROR 60T0 10 
PARAH wpath: BYTE 
PARAH nafie:STRIN6[4] 
PARAH path, secdat (256): BYTE 
PARAH iaxblock, ident: INTEGER 
5 INPUT twpath, "RBF Device Nate : >a«e 
IF LEFTt(na«ie,l)<> - /" THEN 

naffle= B / ,, +naffle 

ENDIF 
IF RI6HTt(naBe,l)O l, i" THEN 

naie=naffle+"e H 

ENDIF 
OPEN tpath, naae 
SEEK tpath, 1 
BET tpath, secdat 

Baxblock=secdat(0)*256+secdat(l)-l 
ident=secdat (14) t256+ secdat (15) 



END 
10 PRINT tNpath,"t» 
60T0 5 



DEVICE NAHE REQUIRED" 



PROCEDURE directory 
PARAH wpath:BYTE 
DIM winnai:STRING[32] 
DIM title:STRIN6[40] 
DIH key:STRING[ll 
DIM pathlist:STRING[401 
10 RUN gedevnaa(wpath,winnafl) 
pathlist=" 
ON ERROR 60T0 99 
PRINT twpath, 8 '; 
title="EXTENDED DIRECTORY" 
RUN header (wpath, title) 
PRINT iwpath, 
PRINT twpath, 

INPUT twpath, "Directory Pathlist : \pathlist 
IF pathlist= D " THEN 

END 

ENDIF 
IF LEFT*(pathlist,l)<>'/" THEN 

pathli5t= a / - +pathlist 

ENDIF 
SHELL "XHODE 8 +winnaiB+ fl PAG=20 PAUSE" 
SHELL "DIR 8 +pathlist+ B E >"+winna« 
SHELL "XHODE "+winnafi+" -PAUSE 8 
PRINT twpath, "Press Any Key to Continue" 
GET iwpath, key 
END 
99 PRINT iwpath, CHR$(*0C) 

PRINT twpath, \ PRINT iwpath, \ PRINT twpath, 
PRINT twpath," ttt '; ERR; " 

nv 

PRINT iwpath, 
PRINT twpath, 

PRINT twpath," CHECK SYNTAX 3 

PRINT twpath, 

PRINT twpath," Press Any Key to 
Continue" 

6ET twpath, key 
GOTO 10 

PROCEDURE gedevnai 

TYPE registers=cc,a,b,dp:BYTE; x T y f u: INTEGER 

DIH regs: registers 

PARAH wpath: BYTE 

PARAH *innai:STRIN6[32] 

DIH i: INTEGER 

DIH callcode:BYTE 

regs.a=wpath 

regs.b=$0E 

regs.x=ADDR(winnaa) 

callcode=$8D 

RUN 5yscall(callcode,reg5) 

FOR i=l TO 32 
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EXITIF HID*(winna«B,i,l)>CHR$(128) THEN 
winnaffl='/" , + LEFT* ( winnaa, i-1) + CHR$ 

(ASC(MID$< winnaa,i,l))-128) 
ENDE3CIT 
NEXT i 
END 



uumtminimi 

I ROGUE I 
t SOFTWARE REVIEW S 

ntnttnttttnutt 

By Nickolas Harentes (CoCo3 Coaaercial Frograeaer) 

Oh wow! Another new gaae for ay CoCo3 and it's fron Epyx, the aob Mho did "Koronis Rift" (which I reviewed 
last issue). This has gotta be good! 

The packaging states "Rogue is so full of unpredictable aonsters, ever-changing aagic and hidden dangers that 
it's never the saae game twice" and "You could spend hundreds of hours playing it... and you still wouldn't 
uncover all its secrets". Sounds iiipressive so without further ado, I opened the package and began to delve 
inside. Once inside I extract a ianual and a disk. Opening the lanual I...aaw what the heck! Rather than beat 
around the bush, I'll tell you right now that this program is absolute t&2$i. Whatever you do DON'T buy this 
program. I don't think that this prograis is even worth "pirating"! (great way to cut down software piracy). 

NEGATIVE POINTS: 

There are three versions of this prograai on the disk. One uses the 40 coluen text screen, the other the BO 
coluan text screen. Both look dull. I find it hard to imagine an "8" is the hero, ": B the floor, V" a door, 
T as food and so on through 43 different symbols. The third version of the program had hope (HAD*. I quote 
"MAKEGW - Opens a full screen graphics window that allows you to play Rogue with graphic iiages on screen for 
sany of the itess in the gaae. It looks good!!" unquote. Well, it was better, but still dull, especially in 
black and white (I thought I bought a COLOR computer?). By the way, you need 512K to use this option. 
Wasteful isn't it. The pictures on the back of the packaging look great compared to the actual screen. The 
progras is very hard to control in that there are so sany keys to control the "action". Sound... well, it 
sounds better with the voluae turned down. Yes, that good! The price of this package is extraordinarily high 
for a prograi of its calibre. At $49.95, Tandy are really pushing their luck. I could go on but this review 
is only supposed to go for one page so I'll get on to the paragraph. 

POSITIVE POINTS: 

Ui. . .well. ..er.. .the packaging looks all right !? 

CLOSING COMMENTS: 

I hope Tandy sack the guy who passed this program through the Computer Marketing division. More prograas like 
this and a lot of CoCo3 owners are going to duip their CoCo for a Commodore or Atari. It's also bad exposure 
for the OS-9 operating system of which this program is running under. Luckily for the author, his name isn't 
printed anywhere. I can understand why this progras is claimed to be "The college mainframe classic". In 
those days, coaputer gases and graphics were still quite archaic. I suppose this program could be classified 
as "a blast froi the past", it certainly is primitive enough. As one CoCo guru said to ae after seeing it, 
"this one's a dud I ". I agree. 
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STARTING OUT WITH 059 
Where Do I Start? 

Lots of people Bust be asking theaselves that question when they first look at 0S9, whether it be 
Level One or Level Two. The answer, of course, is 'at the beginning'. Oh, sure, but just where is that? Well, 
when you purchase 0S9, you get sone disks, and a aanual. You should at least read the first chapter of the 
aanual first! This will tell you how to start 0S9 running on your coaputer. If you are starting with Tandy's 
version of 059, it is supplied on 55 track, single sided disks. This combination will work on all disk drive 
coabinations unless you have 80 track drives that only work on 80 tracks and are not 'switchable'. However 
lacking in space the 630 sector disk is, it is a good starting point. 

Get the systei going. Of course, you should use a BACKUP of the original disks. You can create the 
backup on a colour computer by using the Disk Basic coaaand 'BACKUP'. Of course this will only work on the 
disks as supplied by Tandy in the original foraat, not with previously aodified systei disks. 

Try out sone coaaands. The aost obvious one is the ? DIR ? coaaand. It behaves aostly like the saae 
coaaand on aost computers-it tells you what is on the disk. Well, not quite everything on the disk, but at 
least what is in your current 'DATA' directory. You see 0S9 can have aore than one of these directories, each 
with a different naae, and they can all contain different types of files if you like. However, back to the 
one we're looking at. When you start up 0S9 you will be looking at the ? R00T DIRECTORY' of drive zero which 
is called '/DO 7 . That is the naae of the drive and the nase of the directory. In this directory you will have 
soae files like 'startup' and '0S9Boot' and soae directory naaes like 'CUDS'. 

How do you tell which is which you ask? Well the convention is to naae directories in UPPERCASE and 
files in lowercase, but if you forget, you can get the ' DIR* coaaand to tell you. Try typing ? DIR E\ What 
you get now is a bit aore inforaation about the files in the directory. Have a look at the one I have below. 



Directory of /dl 21:06:22 






Owner Last modified Attributes Sector Bytecount Naae 


87/02/16 1648 — -r-wr 


A 


69E3 0S9Boot 


87/02/16 1649 d-ewrewr 


75 


SCO CHDS 


87/02/16 1654 d-ewrewr 


7E 


140 SYS 


B6/08/13 1447 -—r-wr 


237 


CO startup 


86/10/22 1606 —r-wr 


239 


117 window. t38s 


86/10/22 1605 -—r-wr 


23C 


168 window.t80s 


86/10/22 1628 -—r-wr 


23F 


2B0 window. glr4 


Here is what is displayed with the 'E T extension. Firs 


you, the superuser, then the 


date the 


file was last changed, 



and then to the aeat of our question, the 
attributes. There are eight attributes used. They are Directory, Non-sharable, Public execute, Public write. 
Public read, Owner Execute, Owner Write, and Owner read. The first attribute tells us whether the naae in the 
directory is in fact a directory naae. All the other attributes Bust also be set, except for Non-share so 
that we can use the sub-directory to store files in. The next bit of inforaation is the sector nuaber where 
the file or directory starts and the next the length of the file. All nuabers are in HEXADECIMAL. The last is 
of course the naae of the file. 

Filenaaes can be up to 29 characters long with 0S9, but reaeaber, you have to type those naaes when 
using the Copy coaaand etc. Filenaaes can have any characters except / t ! t it t + . Filenaaes aust start 
with a letter not a nuaber. You can use the underscore and the period but no spaces. So the naae 
Fruit_and_veges is valid but Fruit and veges is not. 

Executable files (read prograaaes) should be stored in the CHDS directory, and 0S9 looks for a 
directory called 7D0/CMDS' when it starts, so that it can find these files. You aay change the 'execution 
directory' to soae other directory once the systea has started. Siailarly, data files and 'shell scripts' can 
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be stored in any data directory. The file called startup Bust be in the root directory for 0S9 to find it. 
What's in the startup file? Hell, here's a listing of the one froi the disk supplied with Level two 0S9. 

1 Echo welcoae aessage 

echo * Welcome to OS-9 LEVEL 2 * 

echo t on the Color Coaputer 3 t 

t Lock shell and std utils into seaory 

link shell 

t Start systea tiae froa keyboard 

setiae </I 

date t 

You 7 11 notice this one has soae coaaents (starting with an asterisk) in it so that Me can see what it 
does. The 'echo' coaaand (line 2) Hill print what is on the line after it to the screen. The link coaaand 
lakes sure you can't reaove the shell prograaae (and its aerged partners) froa aeaory. Then you get to input 
the tiae and date, the '</l' aeans to get data froa the keyboard. After you've input the date it is displayed 
back at you (just in case you got it wrong). 

When 0S9 Level two starts, it looks for two files, one is the shell script 'startup' and one is an 
executable file called 'autoex' . Level one just looks for 'startup'. The 'Autoex' file is useful. In fact no 
file called by that naae exists on your systea disks, but you can renaae any executable file in the CMOS 
directory to 'autoex' and it will automatical ly load and execute that file. 

Next tiae I'll discuss soae sore about this Operating Systea of ours and what you can do to custoaise 
it for your coaputer setup. 

Bob Devries. 



Hulti-Vue and the C Prograaaing language. (Part 2.) 

Because of lack of space, I was not able to put coaaents into the source code for the aouse driven 
pull-down fflenu window prograaee. I will try to aake up for that this aonth. 

The first part of the source listing, starting on page 3 of the October issue, is a list of include 
files, which should be in the directory 7D0/DEFS'. The rest of the lines on that page are definitions, which 
are replaced in the source with their values (e.g. UPDATE is replaced by 3) by the ? C pre-processor. 

The left coluan on page 4 sets up a nuaber of structures with pre-defined values. These, as you can 
see, are the nanes in the pull-downs. The one with 'Application' in it is seen only rarely. If you are quick 
of eye, you can catch it as you use the 'clear' key to switch to and froa other windows. 

The function at the top of the right coluan on page 4 is the interrupt handler. That is, it receives 
the values sent by 059 when a keyboard interrupt (BREAK or CTRL BREAK) is sent, or when you push the aouse 
button. All it really does is store that value in a variable for us to use later. 

Now we coae to aaini). We set up a few local variables, set the systea to be unbuffered input and 
output (with the setbufO function) and turn off the text cursor. CurOff is a function in the CGFX library 
which should be in the directory /Dl/LIB. 

Next we set up a fraaed window on the existing device window (by using stdout). If the current window 
is the wrong type and we cannot coaplete this part, we return an error and exit. Next we set up the interrupt 
handler routine. We select the graphics cursor next. The code words used for this are pre-defined in the 
header file called 'buffs. h\ A call to _ss_gip then sets up the type of aouse we want, and which joystick 
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port to look for it in. In this case I chose the right socket and used the hires adaptor. _ss_bdus then tells 
the systes how often to read the joystick and the tiieout for the button. No* we tell the 0S9 kernel what 
signal to send when the button is pressed. I chose 10, but any value above 3 will do. He then initialise the 
interrupt variable to 0, and go into the sain loop of the prograaae. 

He again use the isig function. Actually, the first one is probably superfluous. He check the sigcode 
variable. If it is we go to sleep until another interrupt coses along. If it equals 10 (MOUSSIG) then we 
reset it tD and read the aouse packet using a call to the _gs_ious function, to see whether the pointer is 
on the control area of the window, that is, the bar at the top. If it is, then we use the switch and case 
construct Df C with the value returned by gsasel to give us the selected pulldown nuaber. The nuaber 
returned by aenu select is defined in the data structures on page 3, as is the nuiiber of the itea of the 
pulldown. Notice here, that the part fros the tiae that you press the button on the control bar till the tiie 
you push it again on a selected itea of the pulldown, is all handled by the Hindint I/O driver. Pushing the 
cursor arrow is also fully autoaatic because we chose to aake it FOLLOW the aouse. All that this prograaae 
does now is to use the values returned by Hindint to select the correct function in the rest of the 
prograaae. By the way, the left aost square on the control bar is actually provided by Hindint and returns 
the value MN_CL0S, which provides a way to quit. It does not perfora a pulldown. The prograaae now goes off 
to do the function which was selected froa the pulldown aenu. Hhen it returns, it does it all again, until 
the variable 'quit' is TRUE (1). Then the graphics pointer is turned off, the signal handler is released, the 
text cursor is restored to noraal, and noraal window is selected, and the prograaae ends. 

The rest of the functions are reasonably self-explanatory, and each function is called with the value 
of the pulldown itea as its paraaeter. I hope this explanation fills the void I left last aonth. If any of 
you have probleas or suggestions, feel free to ring ae or drop ae a line. My address is:- 

21 Virgo Street, 
Inala. Old. 4077 

and the phone nuaber is (07) 3727816. 

Regards, Bob Devries. 
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RGB Patch ! Puts 0S9 into RGB Bode when yoa boot up. 

This patch Hill eliminate the need to call the 'aontype' conaad froa the startup file. It is especially 
useful for those who have done the acidification to boot straight into the 81 colusn screen on startup. It Mi 11 
produce the correct colours iiaediately and not wait until the aontype couand is issued. There is one 'gotcha' 
with this patch, any future lontype coiiands Hill not produce anything else other than RGB. If this presents no 
probleis, patch away. You can use the following shell script to lake life easier. But first, the following Bodsles 
should be in uiory or in the execution directory. 

Echo 

Load 

HodPatch 

Save 

Attr 

Unlink 



-x 

echo patching VD6Int 

aodpatch -s (VBGIntJSod 

echo saving new VDSInt 

save VDGInt.io 

echo changing attributes... 

attr VDGInt.io e pe -a 

echo patching GrfBrv 

sodpatch -s <6rfBrvJ(od 

echo saving new GrfBrv 

save GrfDrv 

echo changing attributes 

attr GrfDrv e pe -a 

echo finished 

That was the first file. You Hill notice that in line 2 and 8 the ndpatch utility is called with input 
redirected froa another file. These files are is as follous:* 

f VBGIntJIod t 

1 VDGInt 
c 0115 26 2§ 

v 

1 GrfDrvJtod f 

1 Grflrv 
c 08D1 26 21 
v 



Ny thanks to Ion lerrie for the code for this one, 

Regards, 

Bob Bevries. 
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